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T7824 --- CLOCK/4962 P/N=1635408 EC=755285 PAGE 03 T7824 --- CLOCK/4 962 P/N=1635408 EC=755285 PAGE O3A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 i< LOCTR OBJECT TEXT STMT SOURCE STATESENT COPYRIGHT IBM CORP 1976 
536 sO RKO ako iolok gok ito gk dfokiok dokdokotokok gkko ot tok tok ee a i 0027B2 19D0 653+SVCAL DC A (DEVADD) ADRS OF DEVICE ADDRESS 
5377 ORR IRC IOI IG RO ORI IO dak tak rk toi ke tee kt kk oi te ie te icf ik te i a ake ak a 0027B4 0000 6544+ pc A (#-*) IBIS CYLINDER ADDRESS 
00262A 538 FOOOO4 EQU * 655+* 
002624 0003 539 D Sai vara 656¢* THIS TEST UNIT WILL RETURN ao MDI WITHOUT DOING ANY PROGRAM 
00262C 002C S540 DC A (0 4) 657+* FUNCTION. THE RESULTS THAT WERE SET OP IN THE RESULTS AREA ARE 
BOSCEL ale dad nS pe Seat REPLACE 4962 CARDS A-A1C2,A-A1D2,ATTACHMENT. ! EE ie STILL VALID BUT A DIFFERENT TEST IS TO BE PERFORMED. 
00265C C9IDSE2D7C5C3E340C 543 DC efpoge trnspgzcr AND RESEAT CABLES BETWEEN ATTACHMENT! 0027B6 4020 2776 3C02 6604T3CO2 MVWI X'3C02',$TUID SET OP TEST UNIT ID 
posean gee MU DERRORERDI eae DC A (0034) acs ae 0027BC 5700 eae ae a7 - RETURN TO MDI SUPVR 
OO26AC . . Bune eoe ere FO00008 oe oe RUD ween REPLACE ATE Gi. .b RABE 664 Pe Py SL gb Ee Tar Oe NS eer re Re PE OT rr rr rrr 
OO26AC 0002 547 ER AL2 (0002) 665 * * 
QO26AE OO2A 548 DC A (0042) 666 * EQUATED NAMES FOR SUPPORTED SVC'S * 
0026B0 DICSDTD3CIC3C540F 549 DC CLOO42*PEPLACE 4962 ATTACHMENT CARD, INSPECT AND * 667 * * 
OO26DA OO2A 550 pc A (0042) G6 BH RH He He HH AH AC I I HHH HR HR HH HK HK 
0026DC DICSE2C5C1E340C3C 551 DC CLOOY2'"*RESEAT CABLES BETWEEN ATTACHMENT AND 4962 ! 000000 669 OUT EQU 0 out SVC 
002706 552 FO00011 EQU * 000001 670 OUTIN EOD 1 OUTIN SVC 
002706 0002 553 DC AL2 (0002) 000002 671 IDLE EQU 2 IDLE SVC 
002708 OO2A 554 DC A (0042) 000003 672 ASCII EQU 3 HEX TO ASCII SVC 
OO270A FUFOFEF240C6C1C9D 555 DC CLOO042"4962 FAILURE,GO TO PAPEP ONLY MAP 7885 FOR! 000004 673 CHNGE EQU 4 CHANGE LEVEL SVC 
002734 000C 556 DC A (0012) 000005 674 PGMCK EQU 5 ALLOW RETURN ON PROGRAM CHECK SVC 
002736 D4&DEDICS4UOESCSE2E 557 DC CLOO012'*MORE TESTING? 000006 675 EXIT EQU 6 EXIT svc 
002742 558 F00130 EQU * 000007 676 TERM EOU 7 TERMINATE SV 
002742 0001 559 D AL2 (0001) 000008 677 RESET EQU 8 RESET DEVICE SVC 
002744 =OO2A 560 DC eae 000009 678 RID EQU 9 READ ID SVC 
002746 C6DEDI4OD4EDEDISC54 561 DC CLOOY2'FOR MORE TESTING GO TO PAPER ONLY MAP 7885? OOOOOA 679 START EOU 10 START CYCLE STEAL SVC 
562 HDIT OOB2 000008 680 STCSS EQU 11 START CYCLE STEAL STATUS SVC 
002770 0000 S644+0OPTNI DC x*0o000° PROGRAM OPTION CONTROL WORD 1 00000C 681 PREP EQU 12 PREPARE DEVICE SVC 
565+* 00000D 682 READO EQU 13 READ WITH FUNCTION BIT 3 OFF SVC 
002772 0000 566+OPTN2 DC X¥'oQooo0! PROGPAM OPTION CONTROL WORD 2 OOO00E 683 READ1 at 14 READ WITH FUNCTION BIT 3 ON SVC 
567+* BIT HEX OOOOOF 684 RSTAT EQU 15 READ STATUS SVC 
000010 S568+B48 EQU 16 0 8 PROBLEM PROGRAM CONTROL BITS 000010 685 WRITO EQU 16 WRITE WITH FUNCTION BIT 3 OFF SVC 
000011 569+B49 EQU 17 1 4 * 000011 686 WRIT! at 17 WRITE WITH FUNCTION BIT 3 OW SVC 
000012 570+B50 EQU 18 2 2 * THESE BITS ARE USED WITH THE 000012 687 CTRL EQU 18 CONTROL SVC 
000013 5714+B51 EQU 19 3 1 * SECOND OPTION WD AND ARE TO 000013 688 RICB EQU 19 RELEASE INTERUPT CONTROL BLOCK SVC 
000014 572+B52 EQU 20 4 8 * BE ASSIGNED BY EACH PROGRAMMER 000014 689 CICB EQU 20 CONNECT INTERUPT CONTROL BLOCK SVC 
000015 573+B53 EQU 21 5 4 * 000015 690 HIO EU 21 HALT ALL zee 
000016 574+B54 EQU 22 6 2 * 000016 691 RECSD EQU 22 REQUEST USE OF DCP DISK SVC 
000017 575+B55 EQU 23 7 1 * 000017 692 RELSD EQU 23 RELEASE USE OF DCP DISK SVC 
000018 576+B56 EQU 24 8 8 * 000018 693 HALT EOQU 24 HALT SVC 
000019 577+B57 EOQOU 25 9 4 * 000019 694 ETOH ban 25 ee TO HEX SVC (STRING 
OOOOTA 578+B58 EQU 26 10 2 x OOOO7A 695 HTOE EQU 26 HEX TO EBCDIC SVC STRING 
00001B 579+B59 EQU 27 11 1 * 000018 696 ATOH EQU 27 ASCIT TO HEX SVC TRING 
00001C 580+B60 EQU 28 12 8 * 00001C 697 HTOA EQU 28 HEX TO ASCII SVC (STRING 
00001D 581+B61 ERG 29 13 4 * 00001D 698 ETOA EQU 29 EBCDIC TO ASCII SVC (STRING 
OO000TE 582+B62 EQU 30 14 2 * OOOO TE 699 ATOE EQU 30 ASCII TO EBCDIC SVC (STRING 
OO00 TF 583+B63 EQU 31 15 1 % O0O001F 700 READI BOG 31 READ DATA SETS FOR mead UtAe 
O00001E 584+CH EQOU 30 14 2 CHARACTER SUPPLIED 000020 701 WRITI EQU 32 WRITE DATA SETS FOR 
O0001F 585+CMP EQU 31 15 1 COMPARE OPERATION 703 Be gc CN eu & 6k EREERS SEERA REOREEA Lae a eek etek bc ae se rea eee 
002774 0000 587+0OPIN3 DC x*goo0o' PROGRAM OPTION CONTROL WORD 3 704 * * 
588+* 705 * EQUATES USED BY TU'S AS CONSTANTS * 
5894+* 0 MYSTERY INTERRUPT MI 8 CS STATUS IN PROGRESS cs 706 * * 
590+* 1 ERROR INTERRUPT ER 9 CS AVAILABLE CSA WAWMETETISCSCOCSSOSSS SSCS SSS OS TOCSCL SSCL SCLC OSSC CSS SCC L OSS LOSS CLOSE OS CS SSS LCL Te LS ses 
591+* 2 EXPECTED INTERRUPT XI 10 CS STATUS INTERRUPT ERR CE : OOOO4E 708 PLUS EQU Cr+! PLUS CHAR 
592+* 3 j$INTERRUPT RECEIVED In 11 ISB BITS ON (1-7) TSBON | 000060 709 MINUS EQU cr-'t MINUS CHAR 
593+* 000000 711 ZERO £EOU 0 
59 4+* uy EXPECTED EPR/ATTENT XE 12 TEST UNIT RESULTS VOID NG 000001 712 ONE EQU 1 
595+* 5 HARD ERROR FOUND HE 13. OIO CC ERROR rocc 000002 713 THRO EQU 2 
596+* 6 WRONG INTR LEVEL SLE 14 NO INTERRUPT NOIN 000003 714 THREE EQU 3 
597+* 7 NO INTR EXPECTED NI 15 INTERRUPT CC ERROR INCC 000004 715 FOUR EQU 4 
598+ BIT HEX 000005 716 FIVE EQU 5 
000020 5994MTI EQU 32 0 8 MYSTERY INTERRUPT HAPPENED 000006 717 SIX EQU 6 
000021 600+ER EQU 33 1 4 ERROR RECEIVED ON INTERRUPT 000007 718 SEVEN EQU 7 
000022 601+XI EQU 34 2 2 EXPECTED INTERRUPT CONTROL BIT 000008 719 EIGHT EQU 8 
000023 6024+IN EQU 35 3 1 INTERRUPT RECEIVED CONTROL BIT 000009 720 NINE EOQU 9 
000024 603+XE EQU 36 4 8 EXPECTED ERROR RESPONSE OOOOOA 721 TEN EQU 10 
000025 604+HE EQU 37 5 uy HARD ERROR, 8 RETRIES 00000B 722 ELEVN EQOU 11 11 
000026 6054+$LE EQU 38 6 2 INTERRUPT ON WRONG LEVEL ERROR 00000C 723 TWELV EQU 12 12 
000027 606+4+NT EQU 39 7 1 NO INTERRUPT EXPECTED E 00000D 724 THRIN EOU 13 13 
000028 607+#+CS EQU 40 8 8 CYCLE STATUS IN PROGRESS OOOOOF 725 FIVIN EQU 15 15 
000029 608+CSA EQU 41 9 4 CYCLE STEAL AVAILABLE 000010 726 SIXTN EQOU 16 16 
QOOO2A 609+CE EOU 42 10 2 CYCLE STEAL stati? INERRRUPT ERROR 000020 727 THRY2 EQU 32 32 
00002B 610+ISBON EQU 43 11 1 ISB BITS ON 000040 728 SIXT4 EOU 64 64 
00002C 6114+NG EQU Yy 12 8 TEST oN ts Re Alaa NO GOOD 000080 729 ONE28 EQU 128 128 
00002D 6%124#I0CC EOU 45 13 4 OIO CC 000100 730 TWO56 EQU 256 256 
OOO002ZE 613+NOIN EQU 46 14 2 NO INTEREGES 000400 731 ONEK EQD 1024 1024 
00002F 6144INCC EQU 47 15 1 INTERRUPT CC ERROR 000800 732 TWOK £EOQU 2048 2048 
615+* 000C00 733 THREK EQU 3072 3072 
616+* COMMON BUFFER FOR PRINTING DATA 001000 734 FOURK EOQU 4096 4096 
617+* FFFFFF 736 M1 EQU -1 -1 
002776 0000 6194+$TUID DC A (*-* TEST UNIT IDENTIFICATION FFFFFE 737 2 EQU -2 -2 
002778 0000 6204+$IOIN DC A (*-* T/O AND INTR CONDITION CODES FFFFFD 738 M3 EQU -3 -3 
00277A 0000 621+$ISB DC A (*-* R INTR STATUS BYTE & DEV ADRS FFFFFC 739 M4 EQU ~—4 -4 
00277C 0000 622+LSTIO DC A (*-* ADRS OF LAST I/O + 4 BYTES ORM TE CLC CSCS § CSS CLOT CL CS CCL SS SSS SSS PST TSS TP ESS CLS TSS ESS SS Ce TT TTL PS eT S| 
OO277E 0000 6234+DEV1 DC A (*-* DEVICE DEPENDENT DATA T4H2 * * 
002780 0000 624+DEV2 DC A (*-* * 743 * THE FOLLOWING ARE EQUATES FOR BIT DISPLACEMENTS FROM THE * 
002782 0000 625+DEV3 DC A (*-* * Tuy * BEGINNING OF THE BYTE TO EACH BIT IN THE WORD OF SWITCHES. * 
002784 0000 626+DEV4Y DC A (*-* * 745 * * 
OO277E 627+SCTID EQU DEV1 READ ID BUFFER FOR IBIS & TERN WIV METS SLCSL SS SS SOLES SSS SSS SSL SSS SSS LCS CSCO SCS CSCS CSS SSS OCSL OLS SS SSCS CSL SL £2 fs 
002786 628+DCBUF EQU * DCB BUFFER FOR LAST DCB USED 000000 747 BSO EQU 0 
002786 0000 629+DCB1 DC A (*-* LAST DCB TABLE, CONTROL WORD 000001 748 BS1 EOOU 1 
002788 0000 6304+DCB2 DC A (*-* LAST DCB TABLE, DEV DEP WORD 000002 749 BS2 EQU 2 
00278A 0000 6314+DCB3 DC A (*¥-* LAST DCB TABLE, DEV DEP WORD 000003 750 BS3 EQU 3 
00278C 0000 632+DCBY DC A (*¥-* LAST DCB TABLE, DEV DEP WORD 000004 751 BS4 EQU 4 
00278E 0000 6334+DCB5 DC A (*-* LAST DCB TABLE, DEV DEP WORD 000005 752 BSS EQU 5 
002790 0000 6344+DCB6 DC A (*-* LAST DCB TABLE, CHAIN ADRS 000006 753 BS6 EQU 6 
002792 0000 635+DCB7 DC A (*-* LAST DCB TABLE, BYTE COUNT 000007 754 BST EOU 7 
002794 0000 £36+DCB8 DC A (*¥-* LAST DCB TABLE, BUFFER ADDRESS 000008 755 BS8 EQU 8 
637+* 000009 756 BS9Y EOU 9 
002796 638+CSBUF EQU * CYCLE STEAL DATA BUFFER OOOOOA 757 BS10 EQU 10 
002796 0000 6394CSTL1 DC A (*-* CYCLE STEAL BUFFER Soee BED ADRS OOOO00B 758 BS11 EQU 11 
002798 0000 6404+CSTL2 DC A (*-* CYCLE STEAL WD 2, DEVI DEPEND 00000C 759 BS12 EQOU 12 
OO279A 0000 6414CSTL3 DC A (*¥-* CYCLE STEAL WD 3, DRYICE DEPEND 00000D 760 BS13 EQU 13 
00279c 0000 6424+CSTL4 DC A (*-* CYCLE STEAL WD 4, DEVICE DEPEND OOO000E 761 BS1&4 EOQU 14 
00279E 0000 643+CSTL5 DC A (*-* CYCLE STEAL WD 5, DEVICE DEPEND OOOO0F 762 BS15 EQU 15 
0027A0 0000 6444CSTLE DC A (*-* CYCLE STEAL WD 6, DEVICE DEPEND 764 Boee CK78DCB 01DEC76 
0027A2 0000 6454+CSTL7 DC A (*-* CYCLE STEAL WD 7, DEVICE DEPEND 765 ** (T78DCB) 13AU0UG76 
OO27A4 0000 GUS +CSTLE pc A (#-* CYCLE STEAL WD 8, DEVICE DEPEND T66 KK OO lo iii tok ick tok lok iotok totot i iio ik tatoo dak tekotc tod tik 
4 T7+* 767 * 
0027A6 0000 648+S$SUBN DC A (*-* LAST SUBROUTINE ADDRESS USED 768 * DCB TABLES AND DC'S 
0027A8 00000000 6494EDATA DC 2A (*-* OPTIONAL DATA 769 * 
OO27AC 0021 6504$INTL DC X¥'0021! INTERRUPT LEVEL REQUESTED WAU TOL OCOSCS SS SCSOLOSS SS SLO SL SSS SSS SSCS ST SLL SL SS SP STS TSP Te Se Se Set tr Tt tT Ss SY 
OO27AE 0000 651+TURTN DC A (*¥-* TEST UNIT RETURN ADRS TO MDI 771 ~=* 
0027B0 0O0B2 652+$DVID DC X'OOB2! DEVICE ID 772 ***** PTAGNOSTIC DCB RK AK KKH 














T7824 --- CLOCK/4 962 P/N=1635408 EC=755285 PAGE O4 LLiG2t- === CLOCK/4962 P/N= 1635408 EC=755285 PAGE O4A 


LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTP OBJECT TEXT STMT SOURCE STATEMENT COPYRISHT IBM CORP 1976 
773 * 00286C 288A 887 DC A (WRSID) ADDR OF SECTOR ID DATA 
O027BE 2008 774 DGDCB DC x'2008! DIAGNOSTIC DCB 888 * 
0027C0 0000 775 DC X'0000! NOT USED 889 **** READ SECTOR ID SKEWED KE 
0027C2 0000 776 DC X'0000! NOT USED 890 * 
0027C4 0000 777 DC X¥'0000! NOT USED 00286E 200R 891 RKDCB DC X"'200B! CONTROL WORD 
0027C6 0000 778 DC X'0000! NOT USED 002870 0000 892 DC X'0000* NOT USED 
0027C8 0000 779 DC x (8%) CHAINING ADDRESS 002872 0000 893 DC X'0000' O-7 = PHYSICAL SECTOR # MINUS ONE 
0027CA 0100 780 DC x¥"01008 BYTE COUNT 002874 0000 894 DC X'0000! NOT USED 
0027CC 0000 781 DC A (*-*) DATA ADDRESS 002876 0000 895 DC X¥"0000' NOT USED 
782 * 002878 0000 896 DC A (+ *) CHAIN ADDRESS 
783 * 00287A 0006 897 DC X"0006! BYTE COUNT FOR READ SECTOR ID 
784 ¥**** RECALIBRATE DCB *#####** 00287C 277E B98 DC A (SCTID) SECTOR ID DATA ADDRESS 
0027CE 0007 786 CLDCB DC X¥'0007! RECALIBRATE DCB 900 * CONSTANTS AND DEFINED STORAGE LOCATIONS 
0027D0 00000000000000000 787 DC TA (*-*) 00287E 0000 901 ZEROO DC X'0000° CONSTANT ZERO 
788 * 002880 0001 902 ONE? DC X'0001! CONSTANT ONE 
789 ***%*k WRITE SECTOR ID ** 002882 0000 903 LGSEC DC X'0000! LOGICAL SECTOR # 
790 * : 002884 0000 904 PHYSC DC X'0000° CONVERTED PHYSICAL SEC # 
0027DE 0002 791 WSDCB DC X'0002' WRITE SECTOR ID CONTROL #@ ORD 002886 1D00 905 CB29 DC X*'1D00! CONSTANT BYTE 29 
0027E0 0000 792 DC X'0000! NOT USED , 002888 3800 906 FIVES DC X'3B00! CONSTANT BYTE 
0027E2 0000 793 DC A (*-* 0-7 = PHYSICAL SECTOR # MINUS ONE 00288A 0000 907 WRSID DC X'0000! FLAG |CYLINDER (HET SECTOR ID DATA) 
0027E4 0000 794 DC A (*-* NOT USED 00288C 0000 908 DC X'0000' CYLINDER, HEAD 
0027E6 0000 795 DC A (*-% NOT USED 00288F 0000 909 DC X'0000' TOG SECTOR NOT USED 
0027E8 0000 196 DC A (*#-* CHAIN ADDRESS 002890 FF34 910 WSIDT vC X'FF3q¢ WRITE SECTOR ID TEST DATA 
OO27EA 0006 7197 DC X*0006! BYTE COUNT 002892 5678 911 DC X'5678! * 
O027EC 288A 798 DC A (WRSID) ADDR OF SECTOR ID DATA 002894 9A00 9142 NC X'9A00' * 
799 *****k READ SECTOR ID DCB *#*#44 002896 0000 913 SCTST DC X'0000' READ SECTOR ID TEST DATA 3 UFFER 
800 * 002898 0000 914 vc X'0000! 
OO27EE 200A 801 RSDCB DC X'200AR' READ SECTOR ID 00289A 0000 915 NC X'0000' i 
0027FO 0000 802 DC X'0000' NOT USED 00289C 0000 916 CTRO1 DC X'0000' COUNTER 
0027F2 0000 803 DC X'0000! 0-7 = PHYSICAL SECTOR # MINUS ONE 00289E 0000 917 DIFF DC X'0000! DIFFERENCE LOC 
0027F4 0000 804 DC X'0000! NOT USED 0028A0 0000 918 XXX DC X*00008 DIRECTION 
0027F6 0000 805 DC X'0000' NOT USED 919 * 
0027F8 0000 806 DC X'0000! CHAIN ADDRESS 921 COPY T78DPCIC 01DEC76 
OO27FA 0006 807 DC X'0006! BYTE COUNT FOR READ SECTOP ID 922 ** (T78DPCIO) 
0027FC 277E 808 DC A (SCTID) SECTOR ID DATA ADDRESS 923 * 2/07/77 
809 * 924 * EXECUTE DPC INPUT/OUTPUT COMMANDS 
810 * 925 * THIS ROUTINE HAS THE FOLLOWING ENTRIES: 
811 ***** READ SECTOR ID IMMEDIATE DCB *### 4% 926 * : 
812 * 927 * 1 BAL  CEOP1,R6 CE DIAGNOSTIC OP1(TURN ON DIAG MODE) 
O027FE 200E 813 RIDCB DC X'200E! READ SECTOR ID 928 * ; 
002800 0000 814 DC X'00008 NOT USED 929 * 2 BAL  CEOP2,R6 WRITE DIAG CLOCK STEP DATA 
002802 0000 815 DC X'0000! NOT USED 930 * ; 
002804 0000 816 DC X'0000' NOT USED 931 * 3. BAL  SENSO,R6 CE PEAD SENSE WORD ZERO 
002806 0000 817 DC X"0000! NOT USED 932 * : 
002808 0000 818 DC She) CHAIN ADDRESS 933 * 4 BAL  SENS1,86 CE PFAD SENSE WORD ONE 
00280A 0006 819 DC X"0006' BYTE COUNT FOR READ SECTOR ID 934 * p 
00280C 277E 820 | DC A (SCTID) SECTOR ID DATA ADDRESS 935 * 5 BAL WRAP,R6 READ DIAGNOSTIC WRAP 
822 * 937 * BXS  (R6,2) RETURN 
823 **eKK SEEK DCB RK 938 * 
B24 * DQ RH MAH He Ke He HM He HH He He He Me He Me He he HK 3 he He oe ee ee 2 He he ae oe i he 2c 2h a ic 2h hc ah a ate aha af a ae ae 2c fe ac afc 2 ic oe a ac fe ae ic fe oe a 2c 
00280E 0005 825 SKDCB DC X'0005! SEEK DCB 940 * 
002810 0000 826 DC X'0000' BIT 0-3= 0; BITG=DIREC TION; 5-15=DIFFER 941 * CE DIAGNOSTIC OP2 DATA WORD (CLOCK STEP) 
002812 0000 827 DC F'Q! 942 * 
002814 0000 828 DC Ftgt 943 x BIT 00 - SET READY 
002816 0000 829 DC X'0000' 0-7 = HEAD;8-15 NOT USED 944 * BIT 01 —- RESET READY 
002818 0000 830 DC A (#-*) CHAIN ADDRESS 945 * BIT 02 - SET WRITE CLOCK 
00281A 0000 831 DC F'Q' NOT USED 946 * BIT 03 - SET READ CLOCK 
00281C 0000 832 DC Ftot NOT USED O47 * BIT 04 - INDEX PULSE 
833 * 948 * BIT 05 - SECTOR PULSE 
834 **k**k CYCLE STEAL STATUS DCB *#%*##% 4% 949 * BIT 06 - STANDARD READ DATA 
835 * 950 * BIT 07 - SPEED PULSE 
00281E 2000 836 CSDCB DC x'2000! CONTROL WORD 951 * BIT 08 - BEHIND HOME 
002820 0000 837 DC F'g? NOT USED 952 * BIT 09 - SET SEEK COMPLETE 
002822 0000 838 DC F'o' NOT USED 953 * BIT 10 - RESET SEEK COMPLETE 
002824 0000 839 DC F'gr NOT USED 954 x BIT 11 - PLO OUT OF SYNC 
002826 0000 840 DC Frgt NOT USED 955 * BIT 12 - RST RD/WRT CLOCK 
002828 0000 841 DC F'o! NOT USED 956 * BIT 13. - 
00282A 0008 842 DC X'0008! 4 WORDS OF STATS 957 * BIT 14 - 
00282c 2796 B43 DC A (CSBUF) ADDRESS OF CYCLE STEAL STATUS DATA 958 * BIT 15 - RESET DIAGNOSTIC MODE 
8U5 ****k WRITE DCB He He He ok ok kK QE HH HH He he He Me He ae He a ee He ee he he 2 he 3 2 he He Hc a 2h 2h 2h 2 ae i i oe i ak oc ok a cK ok ge ic ke take ook ok die ok fe tc ak ok dak ok oc aio 
BUG * 961 * 
00282E 0001 847 WRDCB DC X'0001' WRITE CONTROL WORD 962 * 
002830 0000 848 DC F'gt NOT USED 0028A2 6E0D 277C 963 WRAP MVW R6,LSTIO SAVE ADDRESS OF LAST IO 
002832 0000 849 DC X'0000! 0-7=0;8-15 = FLAG BYTE 0028A6 8028 19D0 2925 964 MVB  DEVADD,IDCBRAP+1 LOAD DEVICE ADDRESS IN IDCB 
002834 0000 850 DC X'0000' SERCH ARGUMENT CYLINDER 0028AC 680C 2924 965 To TDCBRAP READ SENSE WORD 1 
002836 0000 851 DC X'0000' SEARCH ARGUMENT HEAD-SECTOR 0028B0 6F05 2906 966 BNCC 7,CCERR CHECK COND CODE 
002838 0000 852 DC A (*—*) CHAIN ADDRESS 0028B4 5601 967 BxS (R6,2) RETURN TO CALLER 
00283A 0000 853 DC For BYTE COUNT 968 * 
00283Cc 0000 854 DC A (*-*) WRITE DATA ADDRESS 0028B6 6E0D 277C 969 CEOP1 MYW R6,LSTIO SAVE ADDRESS OF LAST I0 
855 * 0028BA 8028 19D0 291D 970 MVB DEVADD,IDCBCE1+1 LOAD DEVICE ADDRESS IN IDCB 
856 *#**e* VERIFY DCB 9 ## KKK 0028CO 6B0C 29IC 971 TO Tocacet SET DIAGNOSTIC MODE 
857 * 0028C4 6F05 2906 972 BNCC SCERR CHECK COND CODE 
00283E 200c 858 VRDCB DC x'200C! CONTROL WORD 0028C8 5601 973 BXS ‘hes RETURN TO CALLER 
002840 0000 859 DC F'Qt NOT USED 974 * 
002842 0000 860 DC X'0000! 0-7=0;8-15 = FLAG BYTE 0028CA 6E0D 277C 975 CEOP2 MVW Io SAVE ADDRESS OF LAS 
002844 0000 861 DC X'0000! CYLINDER 0028CE 8028 19D0 2921 976 VB DEGADD-TDCBCE2+1 TOAD DEVICE ADDRESS IN IDCB 
002846 0000 862 DC X"0000' HEAD - S 0028D4 680C 2920 977 TO IDCBCES WRITE DIAG CLOCK STEP 
002848 0000 863 DC A (*-*) CHAIN ADDRESS 0028D8 6F05 2906 978 BNCC 7,CCERR CHECK COND CODE 
00284a 0000 864 DC Prot BYTE COU 0028DC 5601 979 BXS (86,2) RETURN TO CALLER 
00284Cc 0000 B65 DC A (*-*) VERIFY DATA ADDRESS 980 + 
867 ***** READ DCB #8 #4 aCH 0028DE 6£E0D 277C 982 SENS1 MVW R6,LSTIO SAVE ADDRESS OF LAST TO 
868 * 0028E2 8028 19D0 2919 983 MVB  DEVADD,IDCB1+1 LOAD DEVICE ADDRESS IN IDCB 
00284E 2009 869 RDDCB DC X*2009' READ DCB CONTROL WORD 0028E8 680C 2918 984 ne) IDCB1 READ SENSE WORD 2 
002850 0000 870 DC FtQ! NOT USED 0028EC 6F05 2906 985 BNCC 7,CCERR CHECK COND CODE 
902852 0000 871 DC x'0000' 0-7=0,8-15 = FLAG BYTE 0028FO 5601 986 BXS (R6, 2) RETURN TO CALLER 
002854 0000 872 DC X'0000! SEARCH ARGUMENT CYLINDER 987 * 
002856 0101 873 DC X'0101! SEARCH ARGUMENT H-R 0028F2 6E0D 277C 988 SENSO MVW R6,LSTIO SAVE ADDRESS OF LAST I0 
002858 0000 874 DC A (#—*) CHAIN ADDRESS 0028F6 8028 19D0 2915 989 MVB DEVADD,IDCBO+1 LOAD DEVICE ADDRESS IN IDCB 
00285A 0000 875 DC FQ! BYTE COUNT 0028Fc 680C 2914 990 TO IDCBO READ SENSE WORD 1 
00285c 0000 876 DC A (*-*) READ DATA ADDRESS 002900 6F05 2906 991 BNCC 7,CCERR CHECK COND CODE 
877 * 002904 5601 992 BxS (6,2) RETURN TO CALLER 
878 **#** WRITE SECTOR ID SKEWED ***# 993 * 
879 * 002906 7062 994 CCERF DC X'706E! COPY STATUS ANY LEVEL INTO R3 
00285E 0003 880 WKDCB DC x*0003° CONTROL WORD 002908 336A 995 SRL 13,R3 POSITION CC CODE TO BITS 13-15 
902860 0000 881 DC X"00008 NOT USED 00290A C328 2778 996 MVB R3,$IOIN PUT IN LOG AREA 
002862 9009 882 DC A (e-* O-) = PHYSICAL SECTOR # MC NUS ONE 00290E 68D2 0000 237 (R6) * RETURN 20 USER 
003866 9000 884 DC A (*-% NOT USED 002912 6F05 999 IORST DC X'6FO5! RESET IO 
992868 9000 885 DC A (#-* CHAIN ADDRESS 002914 2205 1000 IDCBO Dc X¥*2205' SENSE WORD ZERO 
00286 000 886 DC X*O006! BYTE COUNT 002316 00600 1001 RDATAO DC A(*-*) DATA WORD 
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LOCTR OBJECT TEXT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYPIGHT TBM CORP 1976 


wn 
HW 
= 
Ha 


002918 2105 1002 IDCB1 nC X'2105' SENSE WORD ONE 1117 * 
OO29TA 0000 1003 RDATA DC A (*- ~ * V1 1B RHR HM HM He He He eH He He He ee i ee hee hee ae 2 He ie he ee ae he i ee a he ic He KC 2 ok ce oi 2 ee aK ke ok 
00291C 4005 1004 IDCBCE1 DC x1 400 CE DIAG OP? 1119 * 
00291E 0000 1005 CEDAT pDCc A SENSE DATA 1120 * 
002920 4105 1006 IDCBCE2 DC 4410 ' CE DIAG OP2 O0O298E 4724 0005 1121 LWSID MVWI 5,R7 BYTE COUNT 
002922 0000 1007 CEDAT2 DC A (*-* SENSE DATA 002992 4324 277F 1122 MVA séTID+1 R3 ADDR OF RD SECT ID DATA BUFFER 
002924 2F05 1008 IDCBRAP DC ise: ' READ DIAG WRAP 002996 4524 288A {123 MVA WRSID,R5 ADDF OF WR SECT ID DATA BUFFER 
002926 0000 1009 RAPDAT DC 3) SENSE DATA OO0299A 2BA4 1124 MVFN R3), (R5) MOV DATA FROM RD TO WR BUFFER 
000232 at cPurD EQU +1923 t CPU ID 00299C 5600 sie - BXS R6 RETURN TO CALLER 
1013 COPY T7810 O1DECT6 1128 * 
1014 ** (T78IO) 1129: * EXECUTE INPUT & OUTPUT COMMANDS 
1015 HR HK He He HR HH HH HH HK HK HK HA YD YT 6M HH HH HH HH HH RR TO RO RE HE 1130 * TO EXECUTE ALL I/O COMMANDS FROM A oo Ra eee 
1016 * 1131 * EACH OF THESE ENTRIES SET R77 WITH THE OF ITS PARAMETER 
1017 * SUBROUTINE 1132 * LIST AND ANY SPECIAL SWITCHES BEFORE BRANCHING TO THE 
1018 * 1133 * SUPVR CALL. 
1019 * PURPOSE 1134 * a 
1020 * 1135 * THIS SUBROUTINE WILL CHECK FOR THE FOLLOWING: 
1021 * COMPARE READ SECTOR ID DATA TO WRITE SECTOR ID DATA 1136 * P 
1022 * NORMAL AND TEST DATA. 1137 * 1. LOST INTERRUPTS BY TIMING OUT A COUNTING LOOP 
1023 * 1138 * 2. ERROR INTERRUPTS RECEIVED FROM SUPVR 
1024 * CALLING SEQUENCE 1139 * 
1025 * 1140 * THIS ROUTINE HAS THE FOLLOWING ENTRIES: 
1026 * BAL CMPRW,R6 NORMAL) 1141 * < 
on 8 : BAL CMPRT, "R6 TEST) AG . 1 BAL SRKEW, R6 READ SECTOR ID SKEWED 
1023 ; RETURN tae : 2 BAL $WKST,R6 WRITE SECTOR ID SKEWED (TEST) 
1234 ; BXS (R6,2) - NOP MAL ag : 3 BAL SRWST,F6 READ SECTOR ID SKEWED (TEST) 
1033 * 1148 * 4 BAL SRIDS,R6 READ SECTOR ID (TEST) 
VO SY RR a HK He He HK HE HE He He He He He He He He he He He eRe RE Ee ee ee He ee eK a ee Hee eae ai ok a tek a 1149 * _ 
1035 * 1150 * 5 BAL SWKEW, R6 WRITE SECTOR ID SKEWED 
002928 4724 0005 1036 CMPRT MVWI BYTE COUNT 1151 * ia 
00292C 4324 2897 1037 MVA Lieve R3 ADDR OF RD SECT ID DATA (TEST 1152 * 6 BAL SWSEC,R6 WRITE SECTOFP ID 
002930 4524 2890 1038 MVA WSIDT, R5 ADDR OF WR SECT ID DATA (TEST 1153 * ‘o 
002934 5006 1039 J ay 1154 * 7 BAL SWSTS,RF6 WRITE SECTOR ID (TEST 
002936 4724 0005 1040 CMPRW MVWI COMPARE BYTE COUNT 1155 * - 
Q00293A 4324 277F 1041 NVA serine R3 ADDR OF RD SEC ID DATA 1156 * 8 BAL SDIAG,F6 DIAGNOSTIC 
Q00293E 4524 288A 1042 MVA W R§ ADDR OF WR SEC ID DATA 1157 * ‘ 
002942 2BA6 1043 TT4YY CFENEN 3), «Be) COMPARE ID DATA 1158 * 9 BAL XIOCS ,F6 CYCLE STEAL STATUS 
002944 68C0 0002 1044 BE 2) BCH TF WRITE ID DATA OK 1159 * ‘ 
002948 68D2 0000 ioe ‘ COMPARE ERROR ee : 10 BAL SSEEK,F6 SEEK 
VOUT RR A RR A KK He eR HK eH OK eH He ee He he He He He ee I ee ok He ee oe ea He ee ak he 2 eo ie ok eK ke 1162 * 11 BAL SRECL,R6 RECALIBRATE 
1048 * 1163 * . 
1049 * SUBROUTINE 1164 * 12 BAL SRDID,R6 READ SECTOR ID 
1050 * 1165 * < 
1051 * PURPOSE 1166 * 13 BAL SRD,R6 READ 
1052 * CONVERT LOGICAL SECTOR NUMBER TO A PHYSICAL SECTOR MINUS 1167 * i 
1053 * ONE. 1168 * 14 BAL SRDVY,R6 READ VERIFY 
1054 * SETUP LOGICAL SECTOR # IN LOCATION 'LGSEC! 1169 * ‘i 
102? . PHYSICAL SECTOR # WILL BF LOADED IN LOCATION ‘'PHYSC! | ae : 15 BAL SWRT,R6 WRITE 
1057 * LOGICAL SECTOR# TO PHYSICAL SECTOR# CONVERSION | 1172 * 
1058 * LOGICAL- X 00, 1E, 01, 1F, 02, 20, Sip ie hy 4, 2, 05, 23, 06, 24, 00299E 4020 2B70 280E 1173 SSEEK MVA SKDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 
neo . PHYSICAL X 00, 01, 02, 03, O4, 05, 06, O7, 08, 09, OA, OB, OC, OD, OO29A4 5064 ie “ J XIo 
1061 * LOGICAL- 07, 25, 08, 26, 09, 27, OA, 28, OB, 29, OC, 2A, OD, 2B, 0029A6 4020 2B70 27CE 1176 SRECL MVA CLDCB,IODCB SET UP BLOCK FOR SVC CALL 
anes : PHYSICAL OE, OF, 10, 11, 12, 13, 14, 15, 16, 17; 185. 19° TA 9 158; QOO29AC 5060 aoe * XIo 
1064 * LOGICAL- OE, 2C;, OF, 2D, 10, 2ZE,. 119 2F, 127 30, 137 31,9 14, 32, QO2Z9AE 4020 2B70 27EE 1179 SRDID MVA RSDCB,IODCB SET UP BLOCK FOR SVC CALL 
1065 * PHYSICAL AC. ID, TE, WF, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 0029B4 OBFF 1180 MVBI X'FF!",R3 SET BUFFER TO F'*S 
1066 * 0029 B6 4524 277E 1181 MVA SCTID,R5 SETUP READ SECTOR ID BUFFER ADRS 
1067 * LOGICAL- 15, 33, 16, 34, 17, 35, 18, 36, 19, 37, 1A, 38, 18, 39, OO29BA 4724 0006 1182 MVWI 6,R7 SETUP BUFFER LENGTH 
1068 * PHYSICAL Zh; Zoe 2Cey 2De 2Ey 2F % 305. .3 le S2y 335¢ She 39% (36,37, OO29BE 2BAC 1183 FFN R3 SRY INTT READ SECTOR ID BUFFER 
1069 * 0029CO0 4020 27FC 277E 1184 MVA Sct D, RSDCB+14 DATA ADDR 
1070 * LOGICAL- 1C, 3A, 1D,. 3B, Xx 0029Ch 5053 1185 J XIO 
1071 * PHYSICAL 38, 39, 3A, 3B, X 1186 * 
1072 * 0029C8 OBFF 1187 SRD MVBI X'!FF!,R3 SETRD BUFFER TO ALL FS 
1073 * QO29CA 6D08 285C 1188 MVW RDDCB# 14 R5 SET UP READ BUFFER ADRS 
1074 * CALLING SEQUENCE Q0O029CE 4724 0100 1189 MVWI ees /R7 SET UP BUFFER LENGTH 
1075 * Q029D2 2BAC 1190 FFN AP}. CLEAR READ BUFFER 
1076 * BAL CONVT,FR6 0029D4 4020 2B70 284E 1191 SRDS MVA Rab B, IODCB SET UP BLOCK FOR SVC CALL 
1077 * O029DA 5049 1192 J XIO 
1078 * RETURN 1193 * 
1079 * 0029DC 4020 2B70 283E 1194 $RDVY MVA VRDCB,IODCB SET UP CONTROL BLOCK FOR 3 VC CALL 
ons z B (TT30442) 0029E2 5045 ae ” J XIO 
ieee ESTO EA ee en Rene ee ee ee ee Lee Ta ee eae Ree Mee Neen ne ee ee Oneans aoee 2B70 282E ioe S$RRT vA EDCE,TORER SET UP CONTROL BLOCK FOR SVC CALL 
00294C 6E0OD 298C 1084 CONVT MVW R6,TT304+4+2 SETUP RETURN ADDR 1199 * 
002950 802B 287E 2883 1085 CB ZEROO, LGSEC+1 CK FOR LOG # ZERO QOO29EC 4020 2B70 286E 1200 SRKEW MVA RKDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
002956 100D 1086 JE TT 03° BCH IF LOG # 5° ZERO 0029F2 OBFF 1201 MVBI X'FF* “R3 SET BOFFER TO FS 
002958 802B 2883 2886 1087 CB Lesne+1,CB29 COMP LOG TO OO29F4 4524 277E 1202 MVA SCTID, R5 SETUP READ SECTOR ID BUFFER ADFPS 
00295E 1C0D 1088 JGE Eo BCH IF Posse’ Eo OR LESS THAN CB29 OO29F8 4724 0006 1203 MVWI 6,R7 SETUP BUFFER LENGT 
002960 4024 0002 1089 MVWI 2 SETUP MULTIPLI Q0029FC 2BAC 1204 FFN R3 {PO}. INIT READ SECTOR ID BUFFER 
002964 E821 2883 1090 MB £6SeC+1, RO LOG SECTOR # TEMES 2 OO029FE 4020 287C 277E 1205 MVA sch D,RKDCB+14 DATA ADDR 
002968 7802 003C 1091 SWI Rate RO LOG SEC TIMES 2 MINUS 60 OO2A04 5034 1206 J XIO 
00296C C028 2885 1092 MVB PHYSC+#1 PHYSICAL SECTOR NUMBER 1207 * 
002970 500C 1093 J a sOn RETU TO CALL Q0O2A06 4020 2B70 285E 1208 S$WKST MVA WKDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
002972 8028 2888 2885 1094 TT303 MVB FIVES, PHYSC+#1 PHYSICAL SECTOR # 59 OO2A0C 4020 286C 2890 1209 MVA WSIDT, WKDCB+14 DATA ADDR 
002978 5008 1095 J TT 304" RETURN TO CALLER 002A12 502D 1210 J XxIo 
QOO0297A 4024 0002 1096 RTTO1 MVWI 2 LOAD MULTIPLIER 1211 * 
QOO0297E E821 2883 1097 MB LESEC#1, PO LOG SECTOR # TIMES 2 002A14 4020 2B70 286E 1212 $RWST MVA RKDCB, TODCB SET UP CONTROL BLOCK FOR SVC CALL 
002982 7802 0001 1098 SWI RO SUBTRACT ONE OO2ZA1A 4020 287C 2896 1213 MVA SCTST, RKDCB+ t4 DATA ADDR 
002986 C028 2885 1099 MVB 6 PHYSC+1 LOAD PHYSICAL SECTOR # O0O02A20 5026 1214 J XIO 
00298A 6802 0000 s408 TT304 B RETURN TO CALLER SGB1oo!. UaGon onT0OTee 1333 a ; ‘ — 
110 2D BMH MH HM HM HH HH HK MH HM he He He He HH HK HK a a RK KH HK HK HK HR KH HK HK KK HK KK KK HK 002A 28 OBFF 1217 TDS Voi ; cB, ZODCB een RUEPoO aoe. BLOCK FOR SVC CALL 
1103 * QOO2ZA2A 4524 2896 1218 MVA ScST, *R5 SETUP READ SECTOR ID BUFFER ADRS 
1104 * SUBROUTINE OO2ZA2E 4724 Q006 1219 MVWI Ss SETUP BUFFER LENGTH 
1105 * 002A32 2BAC 1220 FFN at: >}, INIT READ SECTOR ID BUFFER 
1106 * PURPOSE Q0O02A34 4020 27FC 2896 1221 MVA Sek T,RSDCBt+14 DATA ADDR 
1107 * OO2ZA3A 5019 1222 J 
1108 * LOAD WRITE SECTOR ID DATA BUFFER FROM RD SEC ID BUFFER 1223 * 
1109 * QOO2A3C 4020 2870 285E 1224 SWKEW MVA WKDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 
1110 * CALLING SEQUENCE OO2A42 4020 286C 288A 1225 HVA WRSID,WKDCB+14 DATA ADDR 
1111 * OO2A4B8 5012 1226 J XIO 
1112 * BAL LWSID,R6 1227 * 
1113 * OO2A4A 4020 2870 27DE 1228 SWSEC MVA WSDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 
1114 * RETURN 002A50 4020 27EC 288A 1229 MVA WRSID, WSDCB#+14 DATA ADDR 
1115 * 002A56 500B 1230 J XxIO 
1116 * BXS (R 6) 002A58 4020 2B70 27DE 1231 S$WSTS MVA WSDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
OO2A5E 4020 27EC 2890 1232 MVA  WSIDT,WSDCB+14 DATA ADDR 1348+* 
OO2A64 5004 1233 , J X10 134944 RETURN CONTROL 
+ 
002466 4020 2B70 27BE 1235 S$DIAG MVA  DGDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 13514+* B (R6) * RETURN TO USERS ERROR HANDLER 
002A6C 5000 1236 J X10 13524* 
1237 XEQIT 1353+ ROR IIR IO RIO III II IOI RII IO IIOR TOR A I ICR BOR $i 9K $0 1K 
12304 FHEKEKKEK He Me Me a He HK He ae He he He he ee a a ee Hee he He He he He eK a a oe oe ee oe oe eK Ke HK KK KKK IO JIL 76 * 13544*% 
123948 13554#* CC = DEVICE NOT ATTACHED 
1240+* SUB-ROUTINE 13564* FOR 1= DEVICE BUSY 
12414+% 1357+* I/0 2= DEVICE BUSY AFTER RESET 
12424* EXECUTE INPUT AND OUTPUT COMMANDS 1358+% 3= COMMAND REJECT 
12434*% 1359+% 4= INTERVENTION REQUIRED 
1244+* PURPOSE 1360+* 5= INTERFACE DATA CHECK 
1245+% 1361+* 6= CONTROLLER BUSY 
1246+% TO EXECUTE ALL I/0 COMMANDS FROM A COMMON PLACE. 1362+* 7= I/O COMMAND EXCEPTED 
12 74% THIS SUBROUTINE WILL DO THE FOLLOWING FUNCTIONS: | 13634+* 
1248+* 002AD4 706E 13644XIOER DC X'706E! COPY STATUS ANY LEVEL INTO R3 
12494% 1. SAVE THE ADDRESS THAT POINTS TO THE INSTRUCTION THAT STARTED OO2AD6 336A 1365+ SRL 13,83 POSITION CC CODE TO BITS 13-15 
1250+* THE I/O COMMAND. OO2ZAD8 C328 2778 1366+ MVB R3-$IOIN * PUT IN LOG OUT AREA 
12514+% 2. SAVES THE DCB BLOCK USED UNLESS IT IS A START CYCLE STATUS | OO2ZADC 68D2 0000 13674 B fré)* RETURN TO USER ERROR HANDLER 
1252+* ISSUED BY THIS SUBROUTINE. 1369S EKKKKKEKKKKK KEK MHC MH He HH HK HK HK HK KK KKK RK KE KEKE KK KKK KEK KKK TULA DR 76 €* 
1253+* 3. CLEAR OUT THE CYCLE STEAL STATUS STORAGE UNLESS THE 1370+* IL 
1254+ START CYCLE STATUS WAS ISSUED BY THIS SUBROUTINE. 1371+* SUB-ROUTINE IL 
1255+* 4. RESETS THE INTERRUPT INDICATOR AND CHECKS FOR ANY INTERRUPT 1372+* IL 
12564* SINCE THE LAST EXPECTED INTERRUPT. IF AN INTERRUPT IS FOUND, 1373+* ERROR INTERRUPT RUNS ON INTERRUPT LEVEL 'SINTL'* IL 
12574+* MYSTERY INTERRUPT (MT) CONTROL BIT IS SET. 13 744% TL 
1258+4+% S. MOVES THE ADDRESS OF THE I/0 CONTROL BLOCK aut R7 SET THE 1375+* PURPOSE IL 
1259+4* EXPECTED INTERRUPT CONTROL BIT AND ISSUE tsv& START!. 1376+% TL 
1260+* 6. WHEN THE SUPVR RETURNS AFTER ISSUING THE TO COMMAND, TIMING 13774% THIS ROUTINE WILL BE ENTERED WHEN THE SUPVR DETECTS AN ERROR IL 
1261+* STARTS TO DETERMINE A LOST INTERRUPT. 13784+%* OR THE INTEPRUPTING CONDITION CODE DOES NOT AGREE WITH THE IL 
1262+* 7. EXCEPT THE INTERRUPT AND GATHER INFORMATION TO DETERMINE IF IT 1379+% EXPECTED CODE. IL 
12634+%* WAS AN ERROR OR OKAY AND EXIT OFF THE INTERRUPT LEVEL. 1380+4+* IL 
12644* 8. CHECK IF THERE WAS A WRONG INTERRUPT LEVEL. 1381+* CALLING SEQUENCE TL 
1265+* 9. CHECK IF AN ERROR WAS EXPECTED AND IF THERE WAS RETURN. 13824* IL 
1266+* 10. CHECK IF THERE WAS AN ERROR CONDITION IF NOT RETURN. 1383+4+* SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O INTERRUPT IL 
1267+* 141. CHECK TO SEE IF THE EXERCISER TO BE TERMINATED. 13 844% IL 
1268+* 12. CHECK IF A CYCLE STEAL OPERATION WAS IN PROGRESS THAT WAS 13854+* RETURN CONTROL IL 
1269+* ISSUED BY THIS SUBROUTINE 1386+* IL 
1270+* 13. CHECK THE ISB BITS THAT ARE ON. IF BIT O IS ON, ISSUE A 13874+% SVC EXIT RETURN TO USEP VIA SUPVR TE 
1271+% CYCLE STEAL STATUS COMMAND. CHECK FOR ANY OTHER Bee BEING OW, 13884* IL 
12724+* COUNT IT AND SET UP THE PROFER ERROR MESSAGE TO BE PRINTED. 13 BD HH HK HHH HH He eK He He RK HR eK ee ee He He He he a a HK HK KKK KKK KET 
12734% 13904+* IL 
1274+* CALLING SEQUENCE 13914+* CC 0= CONTROLLER END ISB O= ADD STATUS IL 
1275+% 1392+* FOR 1= PROGRAM CONTROL INTERRUPT BITS = COMD REJECT IL 
1276+% THIS ROUTINE HAS THE FOLLOWING ENTRIES: 1393+* INTR 2= EXCEPTION INTERRUPT FOR 2= INCOR LENGTH IL 
1277+* 13944+* 3= DEVICE END INTERRUPT INTR 3= DCB SPEC CK IL 
1278+* --> BAL  xIO OR XEQ ANY CYCLE STEAL COMMAND, MOD=0 1395+ 4= ATTENTION INTERRUPT W= STG DATA CK TL 
1279+* --> BAL xXT01 MOD PARM PRELOADED IN 'IoMOb' 1396+* 5= ATTENTION / PROGRAM CNTL INTR S= INV STG ADRS IL 
1280+* --> BAL XIOCS,R6 OR XEQ STAPT CYCLE STEAL STATUS, MOD= 1397+ 6= ATTENTION / EXCEPTION INTR 6= PROTRCT CK IL 
12814+* --> BAL xXIOCS-4,R6 AUTO CS STATUS SEOLLOWING OTHER PIO 1398+* 7= ATTENTION 7 DEVICE END INTR J= I-FACE DATA IL 
1282+* AND DOES NOT POST INTERRUPT STATUS) 13994+* TL 
1283+* OO2AEO 706E 14004INTER DC X'"706Et COPY STATUS ANY LEVEL INTO FP3 IL 
12844+* RETURN CONTROL OO2AE2 336A 1401+ SRL  13,R3 POSITION INDICATORS IN R3 TL 
1285+* OO2AEG 4424 2770 1402+ MVA  OPfN1,R4 SET UP BASE ADRS TL 
12864+* BXS R6, 2) RETURN TO USER NO ERROR | OO2ZAE8 4c28 140 3+ TBT (Ra c$) IS CS IN PROGRESS TL 
1287+#* OR B R6) * RETURN AND RETRY ON ERROR OO2ZAEA 1006 1404+ JOFF IntTf£s NO TL 
12884 * RO RoI rok OR OR IC ak foi ie te af fc ate fe a aie ae fee ak 2 ae kc fe 2 fe ok at a a fe ae abe ake a ae ae at oi ak fe ik ake a ae ofc oe QOO2ZAEC 4C6A 1405+ TBTS 486 o) ae te ON CYCLE STEAL INTER ERROR IL 
OO2A6E CB25 2B72 12904+XIO MVWZ IOMOD,R3 SET MOF OF O FOR CYCLE STEAL OP OO2AEE 6FOD 27A4 1406+ MVW 7,CSTL8 SAVE CS ERR ISB VALUE, BITS 0-7 TL 
002A72 5OO0A 1291+ J XI01 CS I/O'S ARE NOT RETRIED OOZAF2 C328 27A5 1407+ MVB  R3,CSTL8+1 * AND THE COND CODE IL 
12924% OO2ZAF6 5OOA 1408+ INTR1 IL 
OO2A74 4CAA 1293+ TBTR (P4,CE RESET CS STATUS INTER ERROR INDICAT. OO2AF8 4cC24 14HO9+INTES TBT (Ra XE) TEST EXPECTED ATTEN / ERROP IND IL 
002A76 4c68 1294+ TBTS (¢R4,CS SET "CYCLE STEAL STATUS! IN PROGRESS OO2AFA 1002 1410+ JOFF INTET BCH IF NOT EXPECTED TL 
002A78 4020 2B70 281E 1295#XI0CS MVA SDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL OO2ZAFC F304 1411+ CBI 4,R3 IS THIS AW TATTENTTON® INTP IL 
OO2ZA7E 4020 2B72 OOOF 1296+ MVWI X'OOOF',TOMOD SET CYCLE STEAL MODIFTER OO2AFE 1006 1412+ JE THTR1 * YES, BCH TO END INTR SEQUENCE IL 
OO2A84 4C28 1297+ TRT {Ra CS) TIS CS IN PROGRESS, ERPOR CONDITION 002B00 4c61 JUIZ34+INTET TBTS (Ra ER) SET ERROR ON I/O COMMAND CNTL BIT IL 
002A86 1213 1298+ JON ney, * YES, BYPASS SAVING I/0 ADRS 002B02 5004 14144 3 wrk IL 
002A88 6EOD 277C 1299+XT01 MVW  R6,LSTIO SAVE TAR FOR RETPY IF REQUESTED 14154% THE ERROR INTERRUPT USES THE SAME TL 
OO2ZA8C 4324 2786 1300+ MVA DCSUF,R3 SET UP TO ADRS TO MOVE DCB TABLE 14164* ENDING SEQU AS THE NORMAL INTR IL 
002A90 6D08 2B70 1301+ MVW  TODCB,R5 * AND THE FROM ADRS, ALONG WITH UIT Ba AEE AGE ISS SEE GEESE I ORIGG ORGS SE BARR EAERAAE AKER RER ERE | GA DE TOLL 
002894 OF10 1302+ MVBI 16,R * THE NUMBER OF MOVES 14194* IL 
002496 2D64 1303+ MVFN SR) 483) MOVE 1 STATUS WORD AND ADJUST 1420+* SOUBROUTINE TL 
002398 OBFF 1304+ MVBI 255,8 CLEAR CYCLE STATUS BUFFER 1421+* IL 
OO2A9A 4524 2796 1305+ MVA iene * TO ALL ONES * 1422+ OKAY INTERRUPT RUNS ON INTERRUPT LEVEL 'S$SINTL! IL 
OO2A9E OF10 1306+ MVBI R * 1423+* TL 
OO2ZAA0 2BAC 1307+ FFN ats 5) x 14244* PURPOSE IL 
OO2ZAA2 4020 2778 0708 1308+ MVWI ki 26 08 ,SIOIN OVERLAY OLD CONDITION CODES 14254+%* IL 
OO2ZAA8 CB25 277A 1303+ MVWZ S$ISB,R3 ZERO OUT OLD ISB VALUE 1426s TO CHECK THE INTERRUPT AND CONTINUE THE TEST IL 
+ + 
OO2ZAAC 4CAI 1311+ TBTR eae RESET ANY ERROR BEFORE 1/0 COMMAND 1428+* CALLING SEQUENCE IL 
OO2ZAAE 4CA3 1312+XIO2 TBTR (R4-IN CLEAR INTERRUPT RECEIVED CNTL BIT 14294% IL 
OO2ABO 4724 2B6C 1313+ MVA oPLK, R7 SET UP CONTROL BLOCK FOR SUPVP 1430+% SUPERVISOR WILL ENTER HERE IF INTR CC IS AS REQUESTED TL 
OO2AB4 4CA6 1314+ TBTR (R4,$LE) RESET LEVEL ERROR INDICATOR 14314* THE ERROR INTERRUPT HANDLER WILL BRANCH TO THIS ROUTINE IL 
O02AB6 462 1315+ TBTS (P4,XT) SET EXPECTED INTR CONTROL BIT 1432+* AFTER THE SPECTAL PART HAS BEEN COMPLETED AND THE IL 
OO2AB8 600A 1316+ SVC TART CALL SUPVR FOP I/O COMMAND 143344 COMMON SECTION IS HANDLED HERE. IL 
+ + 
OO2ABA 4CAT7 1318+ TBTR (R4,NT IS AN INTR EXPECTED 1435+* RETURN CONTROL TL 
OO2ZABC 6ACO 0002 1319+ BN R6,2) * NO, RETURN TO USER 14364+% IL 
1320+% 143 7+* SVC EXIT RETURN TO USER VIA SUPVR IL 
13214+% THE INTR SHOULD OCCUR WHILE SPINNING IN THE NEXT SECTION 143 84% IL 
1322+* VS Db HH HM HH HH HH He He KK eK kk KR tok kok KK ok IK KK KK KT T, 
002ACO ODO0O0 1323+ MVBI oor SET UP WORK REG FOR 'LOST INTP! 002B04 706E 14404 INTOK DC X'706E! COPY STATUS ANY LEVEL INTO R3 TL 
OO2ZAC2 4&CA3 13244#XIO8 TBTR (Rat oh HAS INTERRUPT BEEN RECEIVED 002B06 336A 1441+ SRL 13,83 POSITION INDICATORS IN R3 TL 
OO2ACH 1238 1325+ JON * YES, CHECK IF ALL WAS SATISFACTORY 002B08 4424 2770 1442+ MVA OFTN1,R4 SET UP BASE ADRS IL 
O0O2AC6 6002 1326+ SVC TOE ALLOW ANOTHER PROGRAM A CHANCE TO RUN 002B0C 4C63 14434INTR1 TBTS (R4,IN SET INTERRUPT RECEIVED TL 
13274* SUPVR WILL RETURN HERE OO2B0E 4¢C28 14444 TBT R4,CS IS 'CS IN PROGRESS' ON TL 
002AC8 7DA1 0001 1328+ AWI 1,85 ADVANCE TIME OUT COUNT 002B10 1204 14454 JON wrk? * YES, BCH AROUND UPDATE IL 
OO2ZACC 18FA 13294 JNZ  xtoB BCH IF TIME OUT NOT REACHFD 002B12 ¢328 2779 1446+ MVB R3,$TOIN+1 SAVE {NTERRUPTING CC CODE IL 
OO2ACE 4C61 1330+ TBTS (RG ER) SET ON ERROR CONTROL BIT 002B16 6FOD 277A 14474 MVW R7,$ISB SAVE INTR STATUS AND DEV ADRS IL 
002AD0 68D2 0000 1331+ B EPR 'NO INTERRUPT? OO2BIA 1GUB4INTR2 EQU x IL 
13334* RHA CREAT os CaaS AG ee eee ae eae ees eeeo cs 14494* CPCL R5 CURRENT LEVEL COPIED BY DCP IL 
133404% 0O2B1A 3521 1450+ SLL 4,R5 POSITION INTR LEVEL AND PUT IL 
13354+* SUBROUTINE 002B1C 0501 1451+ ABI 1,R5 * IN "I! BIT TL 
1336+* 00O2B1E CD24 27AC 1452+ CW S${NTL, RS IS THIS THE CORRECT INTR LEVEL IL 
1337+* I/O EXECUTE ERROR HANDLING ROUTINE 002B22 1002 1453+ JE INTR3 * YES, GO EXIT THIS LEVEL IL 
133B8++# 002B24 4C66 14544 TBTS (R4,SLE) SET INTR LEVEL ERROR CONTROL BIT IL 
1339+* PURPOSE 002B26 4Cé61 1455+ TBTS (R4,ER SET ERROR ON 1/0 COMMAND CNTL BIT TIL 
134004+* 002B28 4CA2 1U564INTR3 TBTR (RO,XI WAS INTERRUPT EXPECTED TL 
1341+% THIS ROUTINE WILL COLLECT INFORMATION TO HELP DETERMINE THE OO2B2A 1204 1457+ JON NréX * YES, EXIT OFF THIS INTR LEVEL TL 
1342+* PROBLEM THAT WAS FOUND WHEN 170 COMMAND WAS ISSUED BY THE 002B2C 4c60 1458+ TBTS (RU,MT) * NO, SET MYSTERY INTR CONTROL BIT TL 
13434% SUPERVISOP AND IT WAS NOT WCOEETES 002B2E F304 1459+ CBI. 4,R3 ATTENTION INTERRUPT? IL 
13444% 002B30 1001 1460+ JE INTRX YES IL 
1345+* CALLING SEQUENCE 002B32 4cé6Cc 1461+ TBTS (Ru NG) ERROR, UNEXPECTED INTERRUPT IL 
1346+% 002B34 6006 IU624INTRX SVC XIt EXIT THIS LEVEL VIA SUPVR TO PGM IL 
1347+* SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN T/o COMMAND VLG L&W HHH HH HK HH HH He EK KK KK eK KK KK KK KKK KE KKK OP RBG KX 
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DECLARED NAME ATTRIBUTES AND REFERENCES DECLARED NAHE ATTRIBUTES AND REFERENCES 
1839 1840 2097 2098 2358 2359 2614 2615 2347 T13Jd ADDRESS. HEX LOCATION (000034C2) IN CSECT(I7824 ) LENGTH(4) 
26 41 RDBUF ADDRESS. HEX LOCATION(00003804) IN CSECT (I7824 ) LENGTH (2) 2317 = 2345 
9 2317 T13L ADDRESS. HEX LOCATION(00003450) IN CSECT(I7824 ) LENGTH (4) 
869 RDDCB ADDRESS. HEX LOCATTON (09002848) IN CSECT(I7824  ) LENGTH(2) 2305 
1188 1191 2491 2492 2493 2h94 2495 2320 T13LL ADDRESS. HEX LOCATION(0000345C) IN CSECT(I7824  ) LENGTH(2) 
677 RESET ABSOLUTE. HEX VALUE (00000008) 2346 
1687 1752 1945 2010 2203 2271 2458 2527 2286 T13M ADDRESS. HEX LOCATION (000033E6) IN CSECT(1I7824 ) LENGTH(4) 
688 RICB ABSOLUTE. HEX VALUE (000000 13) 2284 
1601 2288 T13N ADDRESS. HEX LOCATION (000033FC) IN CSECT(I7824  ) LENGTH(4) 
813 RIDCB ADDRESS. HEX LOCATION(000027FE) IN CSECT(I7824 ) LENGTH(2) 2299 
2737 2307 T13R ADDRESS. HEX LOCATION (00003430) IN CSECT(I7824 ) LENGTH (4) 
891 RKDCB ADDRESS. HEX LOCATION (0000286E) IN CSECT (17824 ) LENGTH (2) 2304 
1200 1205 2382 T13RE ADDRESS. HEX LOCATION (00003538) IN CSECT (17824 ) LENGTH (2) 
801 RSDCB ADDRESS. HEX LOCATION (000027 EE) IN CSECT (17824 \ LENGTH (2) 2262 2264 
W472 4188 1216 1221 1720 1978 2735 2738 2739 2370 T13RR ADDRESS. HEX LOCATION (00003518) IN CSECT(I7824  ) LENGTH (6) 
1096 RTT01 {ABBRESS. HEX LOCATION(0000297A) IN CSECT(I7824 ) LENGTH (4) 2224 T13S ADRESS. HEX LOCATION(0000331A) IN CSECT(I7824 ) LENGTH (6) 
28 30 RTY22 ADDRESS. HEX LOCATION(O0003AA8) IN CSECT(I7824 ) LENGTH (2) 2354 T13SS ADDRESS. HEX LOCATION (000034D8) IN CSECT(I7824  ) LENGTH(S4) 
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2831 RT201 ADDRESS. HEX LOCATION(QOOO3AAA) IN CSECT (17824 ) LENGTH (2) 2386 [13ST a hBDRESS. HEX LOCATION (0000353E) IN CSECT(I7824 ) LENGTH(1) 
28 10 RT203 ADDRESS, HEX LOCATION (00003A66) IN CSECT(17824 ) LENGTH(1) 2300 T13T ADDRESS. HEX LOCATION (0000341A) IN CSECT(I7824  ) LENGTH(4) 
28 22 RT204 oDDRESS. HEX LOCATION (00003890) IN CSECT(I7824  ) LENGTH (1) 2381 T13TP ADDRESS: HEX LOCATION (00003534) IN CSECT(I7824  ) LENGTH(2) 
2792 RT205 ADDRESS. HEX LOCATION (00003A34) IN CSECT (17824 ) LENGTH (1) 2380 T130 ADDRESS. HEX LOCATION (09903530) IN CSECT(I7824 ) LENGTH (2) 
2768 2199 2200 2261 2262 2264 2367 2369 2370 
2825 RT208 ADDRESS. HEX LOCATION (00003A96) IN CSECT(I7824 ) LENGTH (1) 2312 T13V oADDRESS. HEX LOCATION(00003440) IN CSECT(I7824 ) LENGTH (4) 
627 SCTID ADDRESS. HEX LOCATION(0000277E) IN-CSECT (17824 } LENGTH (2) 2274 T13X ADDRESS. HEX LOCATION (000033C6) IN CSECT(I7824 ) LENGTH(4) 
808 820 898 1041 1122 1181 1184 1202 1205 2266 2269 
2748 2750 2801 2804 2820 2823 2384 T13XR ADDRESS. HEX LOCATION(0000353C) IN CSECT(I7824 ) LENGTH (2) 
913 scTST ADDRESS. HEX LOCATION(00002896) IN CSECT(I7824  ) LENGTH (2) 2255 
1037 1213 1218 1221 2615 TIGA ADDRESS. HEX LOCATION(000037AE) IN CSECT(I7824 ) LENGTH (6) 
988 SENSO ADDRESS. HEX LOCATION (000028F2) IN CSECT (17824 ) LENGTH (4) 2613 
1835 2093 2354 2610 2622 T14B ADDRESS. HEX LOCATION (000037CE) IN CSECT(I7824 ) LENGTH (4) 
982 SENS1 ADDRESS. HEX LOCATION(000028DE) IN CSECT(I7824 ) LENGTH (4) 2620 
1841 2099 2360 2616 2608 TI4C ADDRESS. HEX LOCATION(0000379A) IN CSECT(I7824  ) LENGTH (4) 
825 SKDCB ADDRESS. HEX LOCATION (00002808) IN CSECT (17824 ) LENGTH (2) 2534 
4473 2129 2739 2731 2735 2737 2755 2760 2765 2534 TI4CC a ADDRESS. HEX LOCATION (00003690) IN CSECT(I7824  ) LENGTH (4) 
2763 SKRV >A BBRESS. HEX LOCATION(000039E0) IN CSECT(I7824  ) LENGTH (1) 2501 T14D ADDRESS. HEX LOCATION(00003636) IN CSECT(I7824 ) LENGTH(4) 
679 START {yugOLure. HEX VALUE (00000004) 2528 TI4E sRBDRESS, HEX LOCATION (00003686) IN CSECT(I7824 ) LENGTH(6) 
104 SUPSTAT {BQREESS- HEX LOCATION(000019C4) IN CSECT(I7824  ) LENGTH(1) 2604 TI4EE aRRDRESS- HEX LOCATION (0000378C) IN CSECT(I7824 ) LENGTH (4) 
1094 TT 303 ADDRESS. HEX LOCATION (00002972) IN CSECT(I7824  ) LENGTH (6) 2524 T14ER ADDRESS. HEX LOCATION (00003678) IN CSECT(I7824  ) LENGTH (6) 
1086 2450 2462 2466 2468 2471 2475 2478 2481 2484 
1100 TT 304 ADDRESS. HEX LOCATION(0000298A) IN CSECT(I7824  ) LENGTH (4) 2487 2497 2510 2514 2516 2548 2552 2580 2584 
1084 1093 09 2588 2593 2597 2606 2611 2617 
1043 TTYUY jAQBRESS- HEX LOCATION (00002942) IN CSECT (17824 ) LENGTH (2) 2506 TI4P ABDRESS. HEX LOCATION(00003640) IN CSECT(I7824 ) LENGTH (2) 
92 TUMSGWTR BDDRESS. HEX LOCATION(OO0018BA) IN CSECT(I7824  ) LENGTH(1) 2607 T14FF oAPBRESS: HEX LOCATION (00003796) IN CSECT(I7824 ) LENGTE(4) 
98 TURESUL ADDRESS. HEX LOCATION(000018C8) IN CSECT (17824 } LENGTH (1) 2591 T14G ADDRESS. HEX LOCATION (00003758) IN CSECT(I7824 ) LENGTH (6) 
1685 1688 1749 1753 1943 1946 2007 ©2011 2201 2577 
2204 2268 2272 2456 2459 2524 2528 2719 2720 2472 T14H ADDRESS. HEX LOCATION(000035BC) IN CSECT(I7824  ) LENGTH (6) 
2721 2722 2723 2724 2780 2781 2782 2783 2784 2470 
2785 2834 2835 2836 2837 2599 T14HH ADDRESS. HEX LOCATION(00003778) IN CSECT(I7824  ) LENGTH (6) 
651 TURTN ADDRESS. HEX LOCATION (000027AE) IN CSECT(I7824 ) LENGTH(2) 2590 
1602 1675 1933 2191 2446 2713 2526 T14I ADDRESS. HEX LOCATION (00003680) IN CSECT (17824 ) LENGTH (4) 
74 TUSTATUS ADDRESS. HEX LOCATION(00001818) IN CSECT(I7824  ) LENGTH(1) 2507 
1575 2632 T14d ADDRESS. HEX LOCATION(000037F4) IN CSECT(I7824 ) LENGTH(2) 
75 TUWORK ADDRESS. HEX LOCATION(0000181A) IN CSECT(I7824 ) LENGTH (1) 2630 
1579 14631 2603 TIGII ADDRESS. HEX LOCATION(00003788) IN CSECT(I7824 ) LENGTH (4) 
2770 TO2A ADDRESS. HEX LOCATION(000039F8) IN CSECT(I7824  ) LENGTH (2) 2573 2601 
2728 2830 2844 2573 TI4L ADDRESS. HEX LOCATION(00003716) IN CSECT(I7824 ) LENGTH (4) 
2772 TO2B ADDRESS. HEX LOCATION(000039FC) IN CSECT(I7824  ) LENGTH (2) 2561 2568 
2743 2576 TI4LL ADDRESS. HEX LOCATION (00003722) IN CSECT(I7824  ) LENGTH(2) 
2774 TO2C ADDRESS. HEX LOCATION(00003A00) IN CSECT (17824 ) LENGTH (2) 2602 
2747 2809 2812 2819 2542 T14M ADDRESS. HEX LOCATION (000036AC) IN CSECT(I7824 ) LENGTH (4) 
2776 TO2D ADDRESS. HEX LOCATION(00003A04) IN CSECT(I7824  ) LENGTH (2) 2540 
2800 2824 2544 TI4N ADDRESS. HEX LOCATION(000036B2) IN CSECT(I7824  ) LENGTH (4) 
2786 TO2ER ADDRESS. HEX LOCATION (00003A24) IN CSECT(I7824 ) LENGTH(2) 2555 
2726 2741 2745 2798 2817 2842 2563 T14R ADDRESS. HEX LOCATION(000036F6) IN CSECT (17824 ) LENGTH (4) 
2780 TO2R ADDRESS. HEX LOCATION(00003A0C) IN CSECT(I7824 ) LENGTH (4) 2560 
2717 26 38 T14RE ADDRESS. HEX LOCATION(000037FE) IN CSECT(I7824  ) LENGTH (2) 
2359 T13A ADDRESS. HEX LOCATION(000034E8) IN CSECT(I7824  ) LENGTH (6) 2518 2520 
2357 26 26 T14RR ADDRESS. HEX LOCATION(000037DE) IN CSECT(I7824  ) LENGTH (6) 
2366 T13B ADDRESS. HEX LOCATION (00003508) IN CSECT(I7824 ) LENGTH(4) 2624 
2364 2479 T14S ADDRESS. HEX LOCATION(000035DA) IN CSECT(I7824  ) LENGTH (6) 
2352 T13C ADDRESS. HEX LOCATION(000034D4) IN CSECT(I7824 ) LENGTH (4) 2489 
2278 26 10 T14SS ADDRESS. HEX LOCATION (00003798) IN CSECT(I7824  ) LENGTH (4) 
2278 T13CC ADDRESS. HEX LOCATION (000033CA) IN CSECT(I7824 ) LENGTH(4) 2502 2549 2553 2581 2585 2589 2594 2598 
2245 2643 T14ST ADDRESS. HEX LOCATION(00003904) IN CSECT(I7824  ) LENGTH (1) 
2245 T13D ADDRESS. HEX LOCATION (00003370) IN CSECT(I7824 ) LENGTH(4) 2453 
2247 2556 T14T ADDRESS. HEX LOCATION(000036E0) IN CSECT(I7824 ) LENGTH (4) 
2272 T13E ADDRESS. HEX LOCATION(000033C0) IN CSECT(I7824  ) LENGTH (6) 2538 2562 256 2571 
2256 2263 226 2637 T14TP ADDRESS. HEX LOCATION (000037FA) IN CSECT(I7824 ) LENGTH(2) 
2348 T13EE ADDRESS. HEX LOCATION(000034C6) IN CSECT(I7824 +) LENGTH(4) 2615 2626 2627 2628 
2285 2636 T14U ADDPESS. HEX LOCATTON (000037F6) IN CSECT(I7824 ) LENGTH (2) 
2268 T13ER ADDRESS. HEX LOC ATTON (00903382) IN CSECT(I7824 ) LENGTH(6) 2454 2455 2517 2518 2520 2623 2625 2626 
2195 2207 2211 2213 2216 2220 2223 2226 2229 2568 T14V ADDRESS. HEX LOCATION(00003706) IN CSECT(I7824  ) LENGTH (4) 
2232 2241 2254 2258 2260 2292 2296 2324 2328 2572 
2332 2337 2341 2350 2355 2361 25 30 T14X ADDRESS. HEX LOCATION(0000368C) IN CSECT(I7824 ) LENGTH (4) 
2250 T13F ADDRESS. HEX LOCATION (0000337A) IN CSECT(I7824  ) LENGTH (2) 2522 2525 
2280 2640 T14XR ADDRESS. HEX LOCATION (00003802) IN CSECT(I7824  ) LENGTH(2) 
2351 T13FF ADDRESS. HEX LOCATION(000034D0) IN CSECT(I7824 ) LENGTH(4) 2511 
2289 2302 2841 T2END ADDRESS. HEX LOCATION(OO003AC8) IN CSECT(I7824 /) LENGTH (4) 
2335 T13G ADDRESS. HEX LOCATION(00003492) IN CSECT (17824 ) LENGTH (6) 2828 
2321 660 T3C02 ADDRESS. HEX LOCATION(000027B6) IN CSECT(I7824 ) LENGTH (6) 
2217 T13H ADDRESS. HEX LOCATION (000032FC) IN CSECT(I7824  ) LENGTE (6) 395 55 8 
2215 2738 T7777 ADDRESS. HEX LOCATION (00003980) IN CSECT(I7824 ) LENGTH (6) 
2343 T13HH ADDRESS. HEX LOCATION(000034B2) IN CSECT(I7824  ) LENGTH(6) 2736 
2334 2713 T7802 ADDRESS. HEX LOCATION(00003922) IN CSECT(I7824 ) LENGTH (4) 
2270 T131 ADDRESS. HEX LOCATION (000033BA) IN CSECT (17824 ) LENGTH (4) 503 
| 2251 2191 T7813 ADDRESS. HEX LOCATION (00003298) IN CSECT(I7824  ) LENGTH (4) 
2376 T13J ADDPESS. HEX LOCATION (0000352E) IN CSECT(I7824 ) LENGTH (2) 443 
2374 2446 T7814 ADDRESS. HEX LOCATION (00003558) IN CSECT(I7824 ) LENGTH (4) 
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